home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Utilities / ButtonTalk 1.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-04-01  |  2KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2882</cardID>
  8.     <listID>2223</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>192</width>
  14.         <height>144</height>
  15.     </cardSize>
  16.     <script>on createButtonMenu-- createButtonMenu, ¬©1994, Matthew Blain.-- v 1.0 of 1/14/94put "" into btnMenuItemsput "" into btnMenuMsgsglobal createButtonMenuNumberif createButtonMenuNumber = "" then put 0 into createButtonMenuNumberadd 1 to createButtonMenuNumberput "btnMenu" & createButtonMenuNumber into btnMenuNameif the number of cd buttons > 0 thenrepeat with i = 1 to the number of cd buttonsget short name of cd btn iput btnMenuItems & it & "," into btnMenuItemsput btnMenuMsgs & "click at the loc of cd btn " & quote ¬¨& it & quote & "," into btnMenuMsgs-- answer "cd btn " & i & return & itend repeatend ifif the number of bg buttons > 0 thenrepeat with i = 1 to the number of bg buttonsget short name of bg btn iput btnMenuItems & it & "," into btnMenuItemsput btnMenuMsgs & "click at the loc of bg btn" & quote ¬¨& it & quote & "," into btnMenuMsgs-- answer "bg btn " & i & return & itend repeatend ifput btnMenuItems & "-,Remove Button Menu" && createButtonMenuNumber into btnMenuItemsput btnMenuMsgs & "empty,delete menu " & btnMenuName into btnMenuMsgs-- answer btnMenuItems & return & btnMenuMsgscreate menu btnMenuNameput btnMenuItems into menu btnMenuName with menuMsgs btnMenuMsgsend createButtonMenuon removeBtnMenu -- the menu to create menusglobal createButtonMenuMENUdelete menu btnTlkput "" into createButtonMenuMENUstop using this stackend removeBtnMenu</script>
  17.     <background id="2583" file="background_2583.xml" name="" />
  18.     <card id="2882" file="card_2882.xml" marked="false" name="" owner="2583" />
  19. </stack>
  20.